home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 025a / gsdb25.zip / DB_XPL11.PAS < prev    next >
Pascal/Delphi Source File  |  1990-12-07  |  612b  |  27 lines
  1. program DB_Xpl11;
  2. uses
  3.    CRT,
  4.    GS_KeyI,
  5.    GS_dBase,
  6.    GS_dBFld;
  7.  
  8. var
  9.    f : GS_dBFld_Objt;
  10.  
  11. begin
  12.    if f.Create('testfile') then
  13.    begin
  14.       f.Open;
  15.       while f.FieldAppendScreen(true) do f.Append;
  16.       ClrScr;
  17.       writeln('File contains ',f.NumRecs,' before packing');
  18.       f.Pack;                         {Remove deleted records and memos}
  19.       writeln('File contains ',f.NumRecs,' after packing');
  20.       WaitForKey;
  21.       f.GetRec(Top_Record);
  22.       while (not f.File_EOF) and (f.FieldDisplayScreen) do
  23.             f.GetRec(Next_Record);
  24.       f.Close;
  25.    end;
  26. end.
  27.